Sub ()

    Dim Ʈ As Worksheet
    Dim  As Range,  As Range
    Dim ǰڵ As Range
    Dim ġ As Range
        
    For Each Ʈ In Worksheets
        
        If Ʈ.Name <> ActiveSheet.Name Then
            
            Set  = Ʈ.Range("B3", Ʈ.Cells(Rows.Count, "B").End(xlUp))
            
            For Each  In 
            
                If Columns(2).Find(What:=.Value, LookAt:=xlWhole) Is Nothing Then
            
                    Set ǰڵ = .Resize(1, 4)
                    Set ġ = Cells(Rows.Count, "B").End(xlUp).Offset(1)
                    
                    ǰڵ.Copy ġ
        
                End If
        
            Next
            
        End If
    
    Next
    
    Range("B2").CurrentRegion.Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlYes
        
End Sub
